#! /usr/bin/perl
my $s = '.';
my $n = 1;
 
$s.=$n++ while(length($s) <= 1_000_000);
 
print "Answer to PE40 = ",
substr($s,1e2,1) * substr($s,1e3,1) * substr($s,1e4,1) * substr($s,1e5,1) * substr($s,1e6,1);
